Dashboard

data("instacart")

instacart_md = instacart %>%
  select(product_id, reordered, add_to_cart_order,user_id, order_dow, order_hour_of_day, days_since_prior_order, aisle_id, aisle, department_id, department) %>%
  filter(
    reordered == "1",
    add_to_cart_order %in% 1:40
    ) 

Column

Chart A

instacart_md %>%
  plot_ly(x = ~aisle) %>%
  add_histogram(color = ~aisle, colors = "viridis")

Column

Chart B

instacart_md %>% 
  mutate(department = fct_reorder(department, add_to_cart_order)) %>%
  plot_ly( x = ~department, y = ~add_to_cart_order, color = ~department,
           type = "box", colors = "viridis")

Chart C

instacart_md %>%
  count(department) %>%
  mutate(department = fct_reorder(department, n)) %>%
  plot_ly( x = ~department, y = ~n,color = ~department, 
           type = "bar", colors = "viridis")